
 1000  *---------------------------------
 1010  *      APPLE "BELL" ROUTINE
 1020  *---------------------------------
 1030         .OR $FBE2    IN MONITOR ROM
 1040         .TA $800
 1050  *---------------------------------
 1060  WAIT       .EQ $FCA8    MONITOR DELAY ROUTINE
 1070  SPEAKER    .EQ $C030
 1080  *---------------------------------
 1090  M.FBE2 LDY #192     # OF HALF-CYCLES
 1100  BELL2  LDA #12      SET UP DELAY OF 500 MICROSECONDS
 1110         JSR WAIT     FOR A HALF CYCLE OF 1000 HERTZ
 1120         LDA SPEAKER  TOGGLE SPEAKER
 1130         DEY          COUNT THE HALF CYCLE
 1140         BNE BELL2    NOT FINISHED
 1150         RTS

